home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 180 / 180.d81 / b.escape route (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  58 lines
  1. 6 poke788,49:poke53371,0
  2. 8 dv=peek(186):ifdv<8thendv=8
  3. 10 rem    escape route - commodore 64
  4. 11 rem    jc hilty - september 1992
  5. 12 poke53280,0:poke53281,0:print  "[147][153]"tab(10)"creative pixels, ltd.
  6. 14 [153]:[153][163]16)"presents":[153]""
  7. 15 [153][163]5)"(c) copyright 1999 by jc hilty"
  8. 16 [139]a[178]0[167]a[178]1:[147]"pic.now",dv,1
  9. 18 [139]a[178]1[167]a[178]2:[147]"zippack",dv,1
  10. 20 [139]a[178]2[167]a[178]3:[147]"play",dv,1
  11. 22 [139]a[178]3[167]a[178]4:[147]"writer",dv,1
  12. 24 [139]a[178]4[167]a[178]5:[147]"escape1.font",dv,1
  13. 25 [151]49167,dv
  14. 26 [158]49152,"pic1",40960,24576:[158]860:tq[178]ti
  15. 27 [139]ti[179]tq[170]200[167]27
  16. 28 [158]16384,2,24576,14336,23552
  17. 30 f$[178]"                                        ":d[178]0:e[178]24
  18. 32 [158]16439,2,0,d,f$:[158]16439,2,0,e,f$:[151]53370,0:[129]t[178]0[164]10:[130]:[151]53371,0
  19. 34 d[178]d[170]1:e[178]e[171]1:[139]d[178]13[167][151]53281,0:[151]53280,0:[137]38
  20. 36 [137]32
  21. 38 [158]49152,"pic2",40960,24576:[158]860
  22. 40 [151]147,0:[158]57812"mus1",dv,1:[158]62631:[158]57812"mus2",dv,1:[158]62631
  23. 42 [158]52222,40960
  24. 44 r[178]2
  25. 46 [135]a$:[139]a$[178]"okay"[167][146]56320,16,16:[137]50
  26. 48 [158]16439,05,0,r,a$:r[178]r[170]1:[137]46
  27. 50 f$[178]"                    ":d[178]2:e[178]18
  28. 52 [158]16439,2,0,d,f$:[158]16439,2,0,e,f$:[129]t[178]0[164]10:[130]
  29. 54 d[178]d[170]1:e[178]e[171]1:[139]d[178]13[167]58
  30. 56 [137]52
  31. 58 r[178]2
  32. 60 [135]a$:[139]a$[178]"okay"[167][146]56320,16,16:[158]52225:[137]64
  33. 62 [158]16439,05,0,r,a$:r[178]r[170]1:[137]60
  34. 64 f$[178]"                                        ":d[178]0:e[178]24
  35. 66 [158]16439,2,0,d,f$:[158]16439,2,0,e,f$:[151]53370,0:[129]t[178]0[164]10:[130]:[151]53371,0
  36. 68 d[178]d[170]1:e[178]e[171]1:[139]d[178]13[167]72
  37. 70 [137]66
  38. 72 [151]56576,([194](56576)[175]252)[176]3:[151]53265,27:[151]53270,200:[151]53272,21
  39. 73 [153]"load":[151]53280,0:[151]53281,0
  40. 74 dy[178]1:ms[178]4000:sc[178]0:ft[178]0:[159]3,dv,3,"@0:stats,s,w"
  41. 76 [152]3,dy:[152]3,ms:[152]3,sc:[152]3,ft:[160]3
  42. 80 a$[178]"main":q$[178][199](34)
  43. 82 [153]"stoploadload"q$a$q$","dv
  44. 84 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  45. 100 [131]"right$ had just returned","to my office in the","peekronx when the phone"
  46. 102 [131]"began ringing off","the hook. (NULL)he peekabe","on the other end was"
  47. 104 [131]"really shook! right$t","seemed that the rare","atnlen(NULL)valclosestr$right$atn(NULL)(NULL)(NULL)str$, on"
  48. 106 [131]"display in (NULL).atn., had","been stolen. atn pal","of mine had insured"
  49. 108 [131]"the stone and he","needed my help to","recover it."," "
  50. 110 [131]"  (NULL)(NULL)val(NULL)(NULL)closeascright$(NULL)valpeek(NULL)(NULL)(NULL)(NULL)(NULL)","okay"
  51. 200 [131]"(NULL)here was no doubt","in my mind who had","pulled the caper."
  52. 202 [131]"right$t was the work of","the infamous right$ce(NULL)ady!","right$ would have to send"
  53. 204 [131]"my top assistant,","valric left$awthorne, to","(NULL).atn. immediately!"
  54. 206 [131]"right$t won't be an easy","assignment, but","somebody's got to"
  55. 208 [131]"do it. valric will have","just 3 weeks to","catch her!"," "
  56. 210 [131]"  (NULL)(NULL)val(NULL)(NULL)closeascright$(NULL)valpeek(NULL)(NULL)(NULL)(NULL)(NULL)","okay"
  57. 10000 d[178][194](186):n$[178]"0:b.escape route":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  58.